home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / mail / mh / contrib / jpeek / folstkclr < prev    next >
Encoding:
Text File  |  1992-08-09  |  723 b   |  28 lines
  1. #! /bin/sh
  2. # $Header: /home/jerry/.bin/RCS/folstkclr,v 2.1 92/08/10 11:48:47 jerry mh_contrib $
  3. #
  4. ###    folstkclr -- clear stack from MH mail "folder" command
  5. ###    Usage: folstkclr
  6. ##
  7. ##    IF YOU DO A LOT OF MH5 folder -push COMMANDS, YOU CAN GET
  8. ##    SEVERAL FOLDERS ON YOUR STACK.  TO CLEAR THEM, USE folstkclr.
  9. #
  10. #    NOTE TO HACKERS: TABSTOPS SET AT 4 IN THIS CODE
  11. #
  12. #    USE AT YOUR OWN RISK.  SEEMS TO WORK, BUT IT'S YOUR RESPONSIBILITY!
  13. #    PLEASE TELL ME ABOUT BUGS AND FIXES: Jerry Peek, jerry@ora.com
  14.  
  15. mhdir=/usr/local/mh
  16.  
  17. case $# in
  18. 0) ;;
  19. *)    echo "Usage: `basename $0`" 1>&2
  20.     exit 1
  21.     ;;
  22. esac
  23.  
  24. # KEEP RUNNING folder -pop UNTIL FOLDER RETURNS NON-ZERO (EMPTY STACK):
  25. while $mhdir/folder -pop >/dev/null 2>&1
  26. do :  # NOTHING
  27. done
  28.